home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '88 / Proceedings '88 / Feldt Advanced Mac Programming / Serial Port / lib src / XTCommMisc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-26  |  4.6 KB  |  198 lines  |  [TEXT/KAHL]
  1. /*                        Commlib - XTCommMisc                                */
  2. /*                          Aztec C compiler 1.06i                            */
  3. /*                        Lightspeed C compiler 2.01                        */
  4.  
  5. /*        Copyright © 1985,86,87 by small systems guild.  All rights reserved.    */
  6.  
  7. #include  <extender.h>   /* include Commlib and standard Toolbox headers    */
  8.  
  9. Boolean ValidPointer(P)
  10. Ptr        P;
  11. {
  12.     if ((P == NULL) ||                        /* pointer is null (zero)    */
  13.             ((long)P & 1L) ||                /* pointer is odd            */
  14.             ((long)P > (long)TopMem()))        /* points above top of RAM    */
  15.         return(FALSE);                        /* then pointer is definitely bad!    */
  16.     else
  17.         return(TRUE);                        /* else pointer is potentially valid*/
  18. } 
  19.  
  20. Boolean ValidHandle(H)
  21. Handle    H;
  22. {
  23.     Ptr        P;
  24.  
  25.     if (ValidPointer((Ptr)H)) {                    /* the handle dereferenced is OK    */
  26.         P = (Ptr)((long)(*H) & 0x00FFFFFF);    /* mask off the master pointer status bits */
  27.         if (ValidPointer(P))                /* the pointer pointed to is OK    */
  28.             return(TRUE);                    /* then Handle is potentially valid    */
  29.     }
  30.     return(FALSE);                            /* Handle doesn't point to a pointer */
  31. }
  32.  
  33. void CommVersion(verStr)        /* copies version string to indicated location  */
  34. char    *verStr;
  35. {
  36.     XTpstrcpy(verStr,"\ssg Commlib -- version 3d10 Oct  1987");    
  37. }
  38.  
  39. OSErr XTCloseFile(reply)
  40. SFReply        *reply;
  41. {
  42.     int        fRefNum,errCode;
  43.  
  44.     if (!ValidPointer((Ptr)reply))
  45.         return(nilHandleErr);
  46.  
  47.     errCode = FSOpen(reply->fName,reply->vRefNum,&fRefNum);
  48.     if ((errCode == opWrErr) || (errCode == noErr)) {
  49.         FSClose(fRefNum);
  50.         return(noErr);
  51.     }
  52.     else
  53.         return(errCode);
  54. }
  55.  
  56. void BugAlert(s0,s1,s2,s3)
  57. char        *s0,*s1,*s2,*s3;
  58. {
  59.     EventRecord        event;
  60.     WindowRecord    wRec;
  61.     WindowPtr        wPtr;
  62.     Rect            tempRect;
  63.     char            *strPtr[4];
  64.     int                bytes,strLen,i;
  65.     char            theStr[256];
  66.                 
  67.     strPtr[0] = s0;
  68.     strPtr[1] = s1;
  69.     strPtr[2] = s2;
  70.     strPtr[3] = s3;
  71.     bytes = 0;
  72.  
  73.     for (i = 0; i < 4; i++) {            /* loop thru each of four strings    */
  74.         strLen = (unsigned char)strPtr[i];        /* get the string length    */
  75.         if (bytes + strLen > 255) {            /* if the strings are to long    */
  76.             strPtr[i][0] = (unsigned char)(255 - bytes); /* shorten    it temp    */
  77.             bytes = 255;                /* set bytes to 255 (max strlength)    */
  78.         }
  79.         bytes += (unsigned char)strPtr[i][0];        /* increment byte count    */
  80.         XTpstrconcat(theStr,strPtr[i]);        /* concatenate the two strings    */
  81.         strPtr[i][0] = (unsigned char)strLen;    /* restore original length    */
  82.     }
  83.  
  84.         SetRect(&tempRect,100,100,390,300);
  85.         wPtr = CreateWindow(&wRec,&tempRect,"\PBug Alert",1,TRUE,FALSE,FALSE,FALSE,FALSE);
  86.         TextFont(0);                    /* set grafport font to system font    */
  87.  
  88.         SetRect(&tempRect,20,20,270,140);
  89.         TextBox(&(theStr[1]),(unsigned char)theStr[0],&tempRect,teJustLeft);
  90.  
  91.         TextFont(1);                    /* set grafport font to application font    */
  92.         TextSize(10);
  93.         SetRect(&tempRect,10,174,280,190);
  94.         XTpstrcpy(theStr,"\PPress mouse button, return or enter to continue...");
  95.         TextBox(&(theStr[1]),(unsigned char)theStr[0],&tempRect,teJustCenter);
  96.         FrameRoundRect(&tempRect,16,16);
  97.  
  98.     do {
  99.         SystemTask();
  100.         GetNextEvent(mDownMask | keyDownMask,&event);
  101.         switch (event.what) {
  102.             case mouseDown:                /* mouse button pressed    */
  103.                 KillWindow(wPtr);
  104.                 RETURN;
  105.                 break;
  106.             case keyDown:
  107.                 switch ((int)(event.message & charCodeMask)) {
  108.                     case 3:                /* enter key pressed    */
  109.                     case 10:            /* return key pressed    */
  110.                         KillWindow(wPtr);
  111.                         RETURN;
  112.                         break;
  113.                 }
  114.                 break;
  115.         }
  116.     } while (TRUE);
  117. }
  118.  
  119. Boolean XTpstrcpy(toStr,fromStr)
  120. char    *toStr,*fromStr;
  121. {
  122.     int     i;
  123.  
  124.     if ((toStr == NULL) || (fromStr == NULL))
  125.         return(FALSE);
  126.  
  127.     for (i=0; i <= (unsigned char)(fromStr[0]); i++)
  128.         toStr[i] = fromStr[i];
  129.  
  130.     return(TRUE);
  131. }
  132.  
  133. Boolean XTcstrcpy(toStr,fromStr)        /* from K & R famous C book, p. 100 */
  134. char    *toStr,*fromStr;
  135. {
  136.     if ((toStr == NULL) || (fromStr == NULL))
  137.         return(FALSE);
  138.  
  139.     while (*toStr++ = *fromStr++)
  140.         ;
  141.  
  142.     return(TRUE);
  143. }
  144.  
  145. Boolean XTctopstr(cStr,pStr)
  146. char    *cStr,*pStr;
  147. {
  148.     int     i;
  149.  
  150.     if (!ValidPointer(cStr) || !ValidPointer(pStr))
  151.         return(FALSE);
  152.  
  153.     for (i = 0;cStr[i] != '\0';i++) {
  154.         pStr[i+1] = cStr[i];
  155.         if (i >= 255) {
  156.             pStr[0] = (unsigned char)255;
  157.             return(FALSE);
  158.         }
  159.     }
  160.     pStr[0] = (unsigned char)(i - 1);
  161.     return(TRUE);
  162. }
  163.  
  164. Boolean XTptocstr(pStr,cStr)
  165. char    *pStr,*cStr;
  166. {
  167.     int     i;
  168.  
  169.     if (!ValidPointer(cStr) || !ValidPointer(pStr))
  170.         return(FALSE);
  171.  
  172.     for (i = 0;i < (unsigned char)pStr[0];i++) {
  173.         cStr[i] = cStr[i+1];
  174.     }
  175.     cStr[i+1] = '\0';
  176.     return(TRUE);
  177. }
  178.  
  179. Boolean XTpstrconcat(toStr,fromStr)
  180. char    *toStr,*fromStr;
  181. {
  182.     int     oldLen,newLen,i;
  183.  
  184.     if ((toStr == NULL) || (fromStr == NULL))
  185.         return(FALSE);
  186.  
  187.     oldLen = (unsigned char)(toStr[0]);
  188.     newLen = (unsigned char)(fromStr[0]);
  189.     if (oldLen + newLen > 255)
  190.         return(FALSE);
  191.  
  192.     toStr[0] = oldLen + newLen;
  193.     for (i=1; i <= newLen; i++)
  194.         toStr[oldLen+i] = fromStr[i];
  195.  
  196.     return(TRUE);
  197. }
  198.